home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1997 March: Reference Library / Dev.CD Mar 97 RL.toast / mac / Utilities / Developer Forms / C⁄F Registration Requests / C⁄F Registration v2.0 / C_F Registration v2.0 / stack_-1.xml < prev    next >
Encoding:
Extensible Markup Language  |  1996-05-30  |  8.2 KB  |  20 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in.0</name>
  5.     <id>-1</id>
  6.     <cardCount>1</cardCount>
  7.     <cardID>2933</cardID>
  8.     <listID>2414</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>_______________________________________________
  17. Macintosh File and Creator Type Registration
  18. _______________________________________________
  19.  
  20. on resumeStack
  21. if the userlevel < 2 then set the userlevel to 2
  22. end resumeStack
  23.  
  24. on openStack
  25. if the cantmodify of this stack is true then
  26. answer "This stack can't be used from the CD-ROM." & return & ¬¨
  27. "Please copy ‚Äú" & (the short name of this stack) && ¬¨
  28. "‚Äù to your hard drive."
  29. erasePath
  30. if the number of lines of the stacks > 1
  31. then send "doMenu Close Stack" to hyperCard
  32. else send "doMenu Quit HyperCard" to hyperCard
  33. exit openStack
  34. end if
  35.  
  36. global gDIAFromDIA
  37. if gDIAFromDIA is "true" then
  38. hide cd btn "hider"
  39. else
  40. show cd btn "hider"
  41. end if
  42. resumeStack
  43.  
  44. global gDIAWhereForms
  45. if gDIAWhereForms is empty then
  46. get the value of word 2 of long name of this stack
  47. put it into gDIAWhereForms
  48. repeat
  49. if last char of gDIAWhereForms is ":" then exit repeat
  50. delete last char of gDIAWhereForms
  51. end repeat
  52. checkStacksVar gDIAWhereForms
  53. end if
  54. end openStack
  55.  
  56. function linefor string,container
  57. get offset(string,container)
  58. if it = 0 then return 0
  59. return the number of lines in char 1 to it of container
  60. end linefor
  61.  
  62. on erasePath
  63. global stacks
  64. put the value of word 2 of long name of this stack into stackPath
  65. repeat
  66. if last char of stackPath = ":" then exit repeat
  67. delete last char of stackPath
  68. end repeat
  69. get linefor (stackPath, Stacks)
  70. delete line it of Stacks
  71. lock screen
  72. deleteStackPath stackPath
  73. unlock screen
  74. end erasePath
  75.  
  76. on deleteStackPath pathName
  77. set lockmessages to true
  78. put the value of word 2 of long name of this stack into thisStack
  79. go cd "stacks" of stack "home"
  80. if cantmodify of stack "Home" is true
  81. then set cantmodify of stack "Home" to false
  82. get linefor (pathName, bg fld "paths")
  83. delete line it of bg fld "paths"
  84. go stack thisStack
  85. set lockmessages to false
  86. end deleteStackPath
  87.  
  88. on checkStacksVar pathName
  89. global stacks
  90. if pathName is not in stacks then
  91. set lockscreen to true
  92. set lockmessages to true
  93. put the value of word 2 of long name of this stack into destination
  94. go cd "stacks" of stack "Home"
  95. if cantmodify of stack "Home" is true
  96. then set cantmodify of stack "Home" to false
  97. if last char of Stacks is return then
  98. put pathName & return after bg fld "paths"
  99. put pathName & return after stacks
  100. else
  101. put return & pathName & return after bg fld "paths"
  102. put return & pathName & return after stacks
  103. end if
  104. go stack destination
  105. set lockmessages to false
  106. set lockscreen to false
  107. end if
  108. end checkStacksVar
  109.  
  110. on closeStack
  111. global gDIAFromDIA
  112. if gDIAFromDIA is "true" then put empty into gDIAFromDIA
  113. if (the freeSize of this stack > 0) ¬¨
  114. and (the cantmodify of this stack is false) then
  115. send "doMenu Compact Stack" to HyperCard
  116. end if
  117. end closeStack
  118.  
  119. function headerInfo
  120. put return & "CREATOR/FILE TYPE Registration Request (" & XVersion (1) & ")" into headMsg
  121. put return & "............................................................................" ¬¨
  122. & return after headMsg
  123. return headMsg
  124. end headerInfo
  125.  
  126. function customerInfo --gets all of the customer's information
  127. put return & "‚Ä¢‚Ä¢ CONTACT INFORMATION ‚Ä¢‚Ä¢" & return & return into contactInfo
  128. put "NAME:  " & bg fld "Name" & return after contactInfo
  129. put "COMPANY:  " & bg fld "Company" & return after contactInfo
  130. put "ADDRESS:  " & bg fld "Address" & return after contactInfo
  131. put "TELEPHONE:  " & bg fld "Phone" & return after contactInfo
  132. put "APPLELINK:  " & bg fld "AppleLink" & return after contactInfo
  133. put return & "PRODUCT NAME:  " & bg fld "Product Name" & return after contactInfo
  134. put "............................................................................" ¬¨
  135. & return after contactInfo
  136. return contactInfo
  137. end customerInfo
  138.  
  139. function signatureInfo
  140. put return & "‚Ä¢‚Ä¢ Signatures ‚Ä¢‚Ä¢" & return & return into sigInfo
  141. put "Alphanumeric Code     Hexadecimal Code" & return after sigInfo
  142. put "-----------------     ----------------" & return after sigInfo
  143. repeat with i = 1 to number of lines of bg fld "Signatures"
  144. if line i of bg fld "Signatures" is not empty
  145. then put line i of bg fld "Signatures" & "                  " ¬¨
  146. & StrToHex3 (line i of bg fld "Signatures") & return after sigInfo
  147. end repeat
  148. -- put bg fld "Signatures" after sigInfo
  149. put return & "............................................................................" ¬¨
  150. & return after sigInfo
  151. return sigInfo
  152. end signatureInfo
  153.  
  154. function fileTypeInfo
  155. put return & "‚Ä¢‚Ä¢ Custom File Types ‚Ä¢‚Ä¢" & return & return into fTypeInfo
  156. put "Alphanumeric Code     Hexadecimal Code" & return after fTypeInfo
  157. put "-----------------     ----------------" & return after fTypeInfo
  158. repeat with i = 1 to number of lines of bg fld "Custom File Types"
  159. if line i of bg fld "Custom File Types" is not empty
  160. then put line i of bg fld "Custom File Types" & "                  " ¬¨
  161. & StrToHex3 (line i of bg fld "Custom File Types") & return after fTypeInfo
  162. end repeat
  163. -- put bg fld "Custom File Types" after fTypeInfo
  164. put return & "............................................................................" ¬¨
  165. & return after fTypeInfo
  166. return fTypeInfo
  167. end fileTypeInfo
  168.  
  169. function resourceTypeInfo
  170. put return & "‚Ä¢‚Ä¢ Custom Resource Types or Scrap Types ‚Ä¢‚Ä¢" & return & return into rTypeInfo
  171. put "Alphanumeric Code     Hexadecimal Code" & return after rTypeInfo
  172. put "-----------------     ----------------" & return after rTypeInfo
  173. repeat with i = 1 to number of lines of bg fld "Custom Resource/Scrap Types"
  174. if line i of bg fld "Custom Resource/Scrap Types" is not empty
  175. then put line i of bg fld "Custom Resource/Scrap Types" & "                  " ¬¨
  176. & StrToHex3 (line i of bg fld "Custom Resource/Scrap Types") & return after rTypeInfo
  177. end repeat
  178. -- put bg fld "Custom Resource/Scrap Types" after rTypeInfo
  179. put return & "............................................................................" ¬¨
  180. & return after rTypeInfo
  181. return rTypeInfo
  182. end resourceTypeInfo
  183.  
  184. on doHelp what
  185. if what is empty then exit doHelp
  186. if there is a cd fld (Help && what)
  187. then show cd fld (Help && what)
  188. else show bg fld (Help && what)
  189. end doHelp
  190.                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  </script>
  191.     <background id="2775" file="background_2775.xml" name="entry" />
  192.     <card id="2933" file="card_2933.xml" marked="false" name="" owner="2775" />
  193. </stack>
  194.